home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 October
/
EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso
/
Aminet
/
comm
/
mebbs
/
shellid100.lha
/
ShellID
/
Install_ShellID
next >
Wrap
Text File
|
1995-05-18
|
4KB
|
130 lines
; $VER: UserID Install 2.01 (12.22.94) by Jason Gouger
(set source-dir (pathonly (expandpath @icon)))
(procedure install-exit
(complete 100)
(transcript "\nPlease support the ShareWare concept.\n")
(set @default-dest ShellID-Dir)
(exit @app-name" is ShareWare\n\nPlease support the ShareWare concept!")
)
(procedure select-destination-directory
(set destdir
(askdir
(prompt "In which drawer should "@app-name" be installed?")
(help "You should install "@app-name" in the Doors Path defined in the MEBBSNet configuration.")
(default "DOORS:")
(newpath)
)
)
(set ShellID-Dir(tackon destdir "ShellID"))
)
(procedure copy-ShellID-prg
(copyfiles
(source source-dir) (dest ShellID-Dir)
(pattern "ShellID")
(files)
)
)
(procedure copy-ShellID-doc
(transcript "\nCopying documentation...\n")
(copyfiles
(source source-dir) (dest ShellID-Dir)
(pattern "ShellID.guide")
(files)
(if(= 1 install-icons) (infos))
)
(if ((exists "SYS:Utilities/MultiView"))
(tooltype(
(dest (tackon ShellID-Dir "ShellID.guide"))
(setdefaulttool "SYS:Utilities/MultiView")
))
(tooltype(
(dest (tackon ShellID-Dir "ShellID.guide"))
(setdefaulttool "SYS:Utilities/AmigaGuide")
))
)
)
(procedure make-ShellID-dir
(if(= 0 install-icons) (makedir(ShellID-Dir)))
(if(= 1 install-icons) (makedir(ShellID-Dir) (infos)))
)
(procedure ask-install-icons
(set install-icons 0)
(if (askbool
(prompt "Would you like the icons installed for ShellID?")
(help "Selecting YES to this option will create the respective icons so that "
"the directory and documentation may be accessed through WorkBench."))
((set install-icons 1))
)
)
(procedure copy-ShellID-Shell
(transcript "\nCopying Example Script file...\n")
(copyfiles
(source source-dir) (dest ShellID-Dir)
(pattern "ShellID.SCP")
(files)
(if(= 1 install-icons) (infos))
)
)
(procedure add-ShellID-menu
(if (askbool
(prompt "Would you like to add the example ShellID Remote Shell to a menu?")
(help "Selecting YES to this option will allow you to add the example "
"Remote Shell to a Menu. The menu option will have a minumum access "
"of 31."))
((set menu-file (askfile
(prompt "Select the Menu File you would like the Remote Shell added to.")
(help "Select a valid NON COMPILED MENU FILE (#?.Menu) for the menu option "
"to be appended.")
(default "MEBBSNet:Menus/MessageMenu.Menu"))
)
(if (= 1 (exists menu-file)) (
(set menuop "xx")
(while (< 1 (strlen menuop))
(set menuop
(askstring
(prompt "Select a valid MEBBSNet menu character that is NOT currently in "
"the menu file:\n'"menu-file"':")
(default "")
(help "Choose ONE character to activate the ShellID door. This character "
"will be added as a menu option to access the door.\n\nNote: This "
"character MUST be a VALID menu character.")
))
(if (= 1 (strlen menuop))
((set menu-text ("\nOption '%s':\n MinAccess 31\n Function MultiRunDoor %s\n end" menuop (tackon ShellID-Dir "ShellID")))
(set dash-txt "--------------------------------------------------")
(if (askbool
(prompt "Are you sure you would like to append the the following menu option "
"to the Menu File '"menu-file"'?\n\n\n"dash-txt menu-text "\n" dash-txt"\n\n")
(help "Selecting YES to this option will append:\n\n"dash-txt menu-text "\n" dash-txt"\n\n"
"to the '"menu-file"' file.\n\n"
"Warning: If you select an incorrect menu/option you may corrupt your "
"menu configuration file!"))
((textfile (dest menu-file) (include menu-file) (append (cat menu-text "\n")))
(set @execute-dir (pathonly menu-file))
(run (cat "MEBBSNet:c/MenuCompiler " (fileonly menu-file))))
)
))))
)
))
)
(complete 00) (transcript "Installation script for " @app-name ".")
(complete 10) (select-destination-directory)
(complete 20) (ask-install-icons)
(complete 30) (make-ShellID-dir)
(complete 40) (copy-ShellID-prg)
(complete 60) (copy-ShellID-doc)
(complete 80) (copy-ShellID-Shell)
(complete 90) (add-ShellID-menu)
(install-exit)